home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / extras / programm / gemfsc20 / gemfsc20.lzh / GEMFBIND / AESEVNT5.S < prev    next >
Text File  |  1993-03-26  |  1KB  |  50 lines
  1.  
  2. ;*========================================================================
  3. ;*
  4. ;* AESFAST Public Domain GEM bindings.
  5. ;*
  6. ;*========================================================================
  7.  
  8.  
  9. ;*************************************************************************
  10. ;*
  11. ;* Event manager routines 5 of n.
  12. ;*
  13. ;*************************************************************************
  14.  
  15. ;-------------------------------------------------------------------------
  16. ; evnt_mouse
  17. ;-------------------------------------------------------------------------
  18.  
  19.           globl     _evnt_mouse
  20. _evnt_mouse:
  21. ;          .cargs    #8,flags,mx,my,mw,mh,px.l,py.l,pbutton.l,pstate.l
  22.  
  23. flags            =    8
  24. mx                =    10
  25. my                =    12
  26. mw                =    14
  27. mh                =    16
  28. px                =    18
  29. py                =    22
  30. pbutton         =    26
  31. pstate            =    30
  32.  
  33.  
  34.           link        a6,#-10
  35.  
  36.           move.l    #$16050500,d0       ; AControl  22,5,5,0
  37.  
  38.           moveq.l    #-10,d1             ; -> intout
  39.           lea        flags(a6),a1       ; -> intin
  40.  
  41.           jsr        aes_call
  42.  
  43.           moveq.l    #-10,d1
  44.           lea        px(a6),a1
  45.           jmp        (a0)
  46.  
  47.  
  48. ;          end of code
  49.  
  50.